title image


Smiley Re: Win 3.x
Dies dürfte helfen. Diesr Code erstellt eine neue Programmgruppe unter Windows 3.1 b.z.w Windows 95. Der Name wird in diesem Fall in einem Edit-Feld eingetragen und durchdie Komponente TDdeClientConv in den Programm-manager von Win 3.1 eingetragen. Wie es mit dateien geht, weiß ich leider nicht. ************************************************************varName: string;Macro: string;Cmd: array[0..255] of Char;beginif GroupName.Text = '' thenMessageDlg('Sie müssen einen Gruppennamen eingeben.', mtError, [mbOK], 0)elsebeginName := GroupName.Text;Macro := Format('[CreateGroup(%s)]', [Name]) + #13#10;StrPCopy (Cmd, Macro);DDEClient.OpenLink;if not DDEClient.ExecuteMacro(Cmd,False) thenMessageDlg('Kann Gruppe nich erstellen.', mtInformation, [mbOK], 0);DDEClient.CloseLink;GroupName.SelectAll;GroupName.Text:='' ;************************************************************Hoffe, das hilft.Arthur

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: